home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23.lha / YAM2.3 / Rexx / Example1.yam < prev    next >
Text File  |  2000-04-19  |  822b  |  19 lines
  1. /* Example1.yam - YAM ARexx interface example #1                      */
  2. /* $VER: Example1.yam 1.0 (14.03.99) © 1999 by M.Beck <mbeck@yam.ch>  */
  3. /* Save selected messages in plain text format.  Files are named      */
  4. /* RAM:1.msg, RAM:2.msg, etc. Requires YAM 2.0p7 or later             */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. GetSelected STEM selected.             /* Get list of selected messages */
  10. c = 0
  11. DO i = 0 TO selected.NUM.COUNT-1       /* Loop through selected mails */
  12.    SetMail selected.NUM.i              /* Set current message */
  13.    MailRead QUIET                      /* Decode message in background */
  14.    c = c+1                             /* Increase filename counter */
  15.    'ReadSave FILENAME "RAM:'c'.msg"'   /* Save visible part to RAM: */
  16.    ReadClose                           /* Finish reading */
  17. END
  18.  
  19.